home *** CD-ROM | disk | FTP | other *** search
- ;mpeg_play GUI file viewer V1.0
- ;©1995 Ivan Smith
- ;For WorBench 3.X+ ONLY!
- ;Requestchoice and Request File must be in you C: dir.
-
- ;setup the ENVvars dir for X11 Stuff
- IF NOT EXISTS ENV:X11
- MAKEDIR >NIL: ENV:X11
- ENDIF
- ;Set the actual variables - add your variables here for window
- ;playback on WB or other custom screens. Read the DOCS for mpeg_play.
- SETENV X11/gfxcard 1
- SETENV X11/askmode 1
- ;Home(Start)
- LAB start
- ;Audio Enabled or not?
- C:Requestchoice >env:Loperat "Options""MPEG PLAYBACK*nCyBERgraphics""once""loop"
- ;Variables for Requestchoice
- IF $Loperat eq "0"
- skip loop
- ENDIF
- IF $Loperat eq "1"
- skip once
- ENDIF
- IF $Loperat eq "2"
- C:endcli
- ENDIF
- ;Call the better vision player
- LAB loop
- ;Ask for a file name
- C:Requestfile >env:Xfilename TITLE "Select an MPEG stream"
- Stack 50000
- mpeg_play -loop $Xfilename
- C:endcli
- skip start
- ;Call the Audio version
- LAB once
- Stack 50000
- ;Ask for a file name
- C:Requestfile >env:Xfilename TITLE "Select an MPEG Stream"
- C:mpeg_play $Xfilename
- C:endcli
- skip start
-
- ;END